rm(list = ls())


#setwd("")

load("b_RUS_FIRMS_ORIG.RData")
attach(RUS_FIRMS_ORIG)


#percent of firms reporting recent encounters with violence (for all firms)

round(prop.table(table(violence2)),3)

#percent of firms reporting recent  encounters with mafia (for all firms)

round(prop.table(table(recent.contact.mafia)),3)

#percent of firms reporting recent encounters with mafia (for small firms)

round(prop.table(table(recent.contact.mafia[size_dummies==1])),3)

#percent of firms reporting recent use of informal connections in courts

round(prop.table(table(use_court_inf2)),3)

#percent of firms reporting recent use of law enforcement  in private capacity

round(prop.table(table(use_lawenf_inf2)),3)

#percent of firms reporting recent use of bureaucrats  in private capacity

round(prop.table(table(use_bur_inf2)),3)

#percent of firms paying reporting less than 90% of sales revenue to tax authorities

round(prop.table(table(tax1_dich_r)),3)

#number firms that were privatized, and of these number with consolidated ownership

table(privatized)
table(consolidated[privatized==1])

#percent of firms believing others lawful 

round(prop.table(table(other_firms2)),3)

#percent of firms believing others lawful 10 years earlier

round(prop.table(table(other_past2)),3)

detach(RUS_FIRMS_ORIG)
